# 
# 
# Author: Guochun Shen
# Data:   2011-12-18
# Project:spatial statistic
# Email:  shenguochun@gmail.com
###############################################################################

test.auto_modeling=function(){
	mydata("phylo_mark_data")
	fitted1=auto_modeling(data.ppp,"HetePoisson",covrs)
	p1=get_params(fitted1)
	fitted2=auto_modeling(data.ppp,"LGCP",covrs)
	p2=get_params(fitted2)
	checkEquals(3,length(p1))
	checkEquals(7,length(p2))
	
}

